data-raw/Load Data.r

In connerpike/cptr: An R reference for CPT Procedure Codes

hcpcs_file <- "data-raw/CPT HCPCS.xlsx"
cols <- c("text","text")


##### Import HCPCS #####
hcpcs_2014 <- read_excel(hcpcs_file, sheet = "2014", col_types = cols)
hcpcs_2015 <- read_excel(hcpcs_file, sheet = "2015", col_types = cols)
hcpcs_2016 <- read_excel(hcpcs_file, sheet = "2016", col_types = cols)
hcpcs_2017 <- read_excel(hcpcs_file, sheet = "2017", col_types = cols)
hcpcs_2018 <- read_excel(hcpcs_file, sheet = "2018", col_types = cols)

names(hcpcs_2014) <-
	names(hcpcs_2015) <-
	names(hcpcs_2016) <-
	names(hcpcs_2017) <-
	names(hcpcs_2018) <-
	c("code","description")

hcpcs <- list(
	"2014"=hcpcs_2014,
	"2015"=hcpcs_2015,
	"2016"=hcpcs_2016,
	"2017"=hcpcs_2017,
	"2018"=hcpcs_2018
)
rm(hcpcs_2014,hcpcs_2015,hcpcs_2016,hcpcs_2017,hcpcs_2018)
rm(hcpcs_file)
rm(cols)

devtools::use_data(hcpcs,overwrite = T)